10 TR=255:HI=2000:HI$="G.H." 20 GOTO60000 50 POKE53281,3:PRINT"[147]":POKE53281,0:GOSUB10000 52 SI=54272:FORT=0TO24:POKESI+T,0:NEXT 55 DEFFNA(U)=1923+X-40*Y 100 GOSUB30000 110 POKEQ,C:Q=FNA(U):POKEQ,D:IFZ=.THENZ=V 120 X=X+Z:IFX=-18ORX=18THENZ=-Z:SO=50:GOSUB2000 130 Y=Y+W 140 IFY=HTHENW=-W 150 GH=PEEK(FNA(U)):IFGH=35ORGH=34ORGH=36THENTB=1:R=RND(1) 152 IFTB=1ANDR>.5THENW=-W:V=Z:Z=.:TB=0:SO=100:GOSUB2000:GOTO120 153 IFTB=1ANDR<.5THENW=-W:TB=0:SO=100:GOSUB2000:GOTO120 155 IFGH=33THENGOTO2500 156 IFGH=32THEN230 157 IFGH=27THENSC=SC+1:GOSUB2015:W=-W:GOTO400 160 IFGH=31THENSC=SC+5:W=-W:GOTO400 165 IFGH=30THENSC=SC+10:W=-W:GOTO400O 230 P1=PEEK(197):IFP1<>64THEN1000 300 GOTO110 400 PRINT"[156]";SC 410 HH=HH+1:IFHH=>88THENHH=0:LE=LE+1:GOTO2600 420 IFLE=11THEN2700 500 GOTO110 1000 IFP1=29ORP1=37ORP1=4THEN1006 1005 GOTO500 1006 IFP1=4THEN4000 1010 IFP1=29ANDT1>1948THENPOKET1+1,32:T1=T1-2:POKET2,32:T2=T1+2 1020 IFP1=37ANDT2<1978THENPOKET2-1,32:T2=T2+2:POKET1,32:T1=T2-2 1030 POKET1,34:POKET2,36:POKET1+1,35:GOTO500 2000 SID=54272 2005 POKESID+24,15:POKESID+1,SO:POKESID+5,0*16+0:POKESID+6,10*16+9:POKESID+4,17 2010 POKESI+4,16:RETURN 2015 SID=54279 2020 POKESID+24,15:POKESID+1,50:POKESID+5,0:POKESID+6,10*16+9:POKESID+4,129 2025 POKESI+4,128:RETURN 2500 SI=54272:FORT=0TO24:POKESI+T,0:NEXT 2502 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33 2530 FORT=0TO100:POKESI+1,T:POKE53280,T:FORXX=1TO5:NEXTXX,T 2535 FORT=100TO0STEP-1:POKESI+1,T:POKE53280,T:FORXX=1TO5:NEXTXX,T 2540 POKESI+4,32 2550 SID=54279 2555 POKE54296,15:POKESID+1,2:POKESID+5,0:POKESID+6,10*16+9:POKESID+4,129 2560 POKE53280,2:FORT=0TO100:XX=RND(1):IFXX>.5THENFA=43:GOTO2562 2561 FA=28 2562 POKEQ,FA:NEXT 2565 POKESI+4,128:POKE53280,0 2570 CP=CP-1:IFCP=0THEN3000 2575 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT" ";:NEXT 2580 PRINT"[159]";TAB(24);:FORT=0TOCP-1:PRINT"\";:NEXT 2585 POKEQ,32 2590 X=0:Y=0:Z=1:W=1:C=32:D=28:Q=1923:V=1 2595 T1=1961:T2=T1+2 2596 PRINT"## ";FF$;"#$" 2597 PRINT"[145]  ##" 2598 GOTO100 2600 SI=54272:FORT=0TO24:POKESI+T,0:NEXT 2601 POKEQ,32:POKEFNA(U),32 2602 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33 2603 IFLE=11THEN2700 2605 NL$="NEXT LEVEL" 2606 PRINT"";TAB(15);:FORT=1TO10:PRINTMID$(NL$,T,1); 2607 FORXX=1TO50:NEXTXX,T 2610 FORXX=1TO6 2630 FORT=0TO100:POKESI+1,T:NEXTT 2632 NEXTXX 2640 POKESI+4,32 2690 GOTO50 2700 SI=54272:FORT=0TO24:POKESI+T,0:NEXT 2701 LE=1:HH=0 2702 POKESI+24,15:POKESI+5,0:POKESI+6,249:POKESI+4,33 2705 NL$="BONUS POPPER" 2706 PRINT"";TAB(14);:FORT=1TO12:PRINTMID$(NL$,T,1); 2707 FORXX=1TO50:NEXTXX,T:B=0 2730 FORT=0TO20:POKESI+1,B*10+100:POKE53280,B:B=1-B:FORXX=1TO50:NEXTXX,T 2740 POKESI+4,32 2745 CP=CP+1:IFCP=4THENCP=3 2750 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT"\";:NEXT 2790 GOTO50 3000 H$="GAME OVER" 3010 PRINT"";TAB(15);:FORT=1TO9:PRINTMID$(H$,T,1); 3020 FORXX=1TO150:NEXTXX,T 3025 FORT=0TO1000:NEXTT 3030 IFSC>HITHEN5000 3040 GOTO60000 4000 FORT=0TO10:GETA$:NEXT:P1=0 4010 GETA$:IFA$=""THEN4010 4015 IFA$="[133]"THENFORT=0TO10:GETA$:NEXT:GOTO500 4020 GOTO4000 5000 POKE53280,3:POKE53272,21:PRINT"[147]":GOSUB20000:POKE53270,200 5005 PRINT""TAB(12)"CONGRATULATIONS" 5010 PRINT"YOU HAVE MADE THE HIGH SCORE" 5015 PRINT" ENTER YOUR INITIALS" 5020 PRINT"[158] ----" 5030 AL$="@ABCDEFGHIJKLMNOPQRSTUVWXYZ.,*()'" 5035 L=47:R=44:SP=60:PO=1:HI$="":TK=1 5040 PRINT"[145][145]"TAB(15+TK)MID$(AL$,PO,1) 5045 PP=PEEK(197):IFPP=64THEN5045 6000 END 10000 X=0:Y=0:Z=1:W=1:C=32:D=28:Q=1923:H=40:L=0:R=40:U=80:V=1 10005 T1=1961:T2=T1+2 10010 POKE53272,29:POKE53270,216:POKE53283,2 10020 A$="]]" 10030 PRINT"";:FORT=0TO24:PRINTA$:NEXT:PRINT"" 10040 PRINT"#####################################" 10045 PRINT"[156]SCORE:0 [158]HIGH:0" 10046 PRINT"LEVEL:1 [159]POPPERS:\\\ HI BY:" 10050 PRINT"#####################################" 10060 PRINT"" 10070 PRINT"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 10075 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [" 10077 PRINT"[153]^^^^^^^^^^^^^^^^^" 10080 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [" 10082 PRINT"[158]_________________" 10085 PRINT"[ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [ [" 10090 PRINT"####" 10095 FF$=CHR$(34) 10100 PRINT"## ";FF$;"#$" 10105 PRINT"[145]  ##" 10200 PRINT"[156]";SC 10205 PRINT"[158]";TAB(25);HI 10210 PRINT"";LE 10215 PRINT"[159]";TAB(24);:FORT=0TOCP:PRINT" ";:NEXT 10220 PRINT"[159]";TAB(24);:FORT=0TOCP-1:PRINT"\";:NEXT 10225 PRINT"";TAB(34);HI$ 10500 RETURN 20000 FORT=0TO39:POKE1024+T,160:POKE2023-T,160 20010 POKE55296+T,T:POKE56295-T,T:NEXT 20020 FORT=0TO23:POKE1063+T*40,160:POKE1984-T*40,160 20030 POKE55335+T*40,T:POKE56256-T*40,T:NEXT 20040 RETURN 30000 MA=960:CR=1024:CC=55296:MB=402+40:FORT=0TO3:MB=MB+1:POKECR+MB,35 30005 POKECC+MB,6:NEXT 30010 FORT=1TO14:POKECR+MA-T*40,28 30015 POKECC+MA-T*40,3 30017 FORXX=0TO100:NEXT 30020 POKECR+MA-T*40,29 30025 POKECC+MA-T*40,1 30030 NEXT:T=T-1:MA=MA-T*40 30040 FORT=1TO7:MA=MA+1 30045 POKECR+MA,28 30050 POKECC+MA,3 30055 FORXX=1TO100:NEXTXX 30060 POKECR+MA,32 30075 NEXTT 30076 MB=MA+40:FORT=0TO3:MB=MB-1:POKECR+MB,32:POKECC+MB,1:NEXT 30080 FORT=0TO11 30085 MA=MA+41 30090 POKECR+MA,28 30095 POKECC+MA,3 30097 FORXX=0TO25:NEXTXX 30100 POKECR+MA,32 30105 NEXTT:POKECR+MA,28:SO=100:GOSUB2000 30500 RETURN 60000 REM 60100 PRINT"[147]":POKE53280,0:POKE53281,0:POKE53272,21:POKE53270,200 60110 A$=" *GEORGE HAMIN 83/12/10* " 60115 B$=" *PRESS F1[146]* " 60116 ME$=" *PLEASE WAIT* " 60120 GOSUB20000 60130 PRINT"[169] " 60140 PRINT" " 60150 PRINT"  [146][169]" 60160 PRINT"  [146][169]" 60170 PRINT" [146]RAZY" 60180 PRINT"  [223]" 60190 PRINT"  [223][146]" 60192 PRINT" " 60195 PRINT"[146][223] " 60200 PRINT"[145][145][145][145][145]":A=24 60210 PRINTTAB(A)" [223]" 60220 PRINTTAB(A)" " 60230 PRINTTAB(A)"  " 60240 PRINTTAB(A)" [169] [146][169]" 60250 PRINTTAB(A)" [146][169] OPPER" 60260 PRINTTAB(A)" " 60270 PRINTTAB(A)" " 60280 PRINTTAB(A)" " 60290 PRINTTAB(A)" " 60295 IFTR=255THEN60400 60300 D=0 60303 PRINT"" 60305 PRINT"";RIGHT$(A$,38-D);LEFT$(A$,D) 60307 PRINT"";RIGHT$(B$,D);LEFT$(B$,38-D) 60310 D=D+1:IFD=39THEND=0 60315 FORT=1TO10:NEXTT 60316 GETC$:IFC$=""THEN60320 60317 IFC$="[133]"THEN60330 60320 GOTO60303 60330 HH=0:SC=0:LE=1:CP=3:GOTO50 60400 TR=0 60410 PRINT"" 60420 D=0 60425 PRINT"";RIGHT$(A$,38-D);LEFT$(A$,D) 60426 PRINT"";RIGHT$(ME$,38-D);LEFT$(ME$,D) 60430 POKE56334,PEEK(56334)AND254 60435 POKE1,PEEK(1)AND251 60440 FORT=0TO511:POKET+12288,PEEK(53248+T):NEXT 60445 POKE1,PEEK(1)OR4 60450 POKE56334,PEEK(56334)OR1 60455 FORT=1TO7*8:READDA:POKE12288+215+T,DA:NEXT 60456 FORT=0TO7:READA,B,C:POKE12560+T,A:POKE12560+T+8,B:POKE12560+T+16,C:NEXT 60460 DATA124,254,254,254,254,124,56,16,90,129,90,60,24,24,165,195,195,255,195 60465 DATA195,195,255,195,195,3,12,48,48,200,138,128,0,6,14,10,20,52,72,176,192 60466 DATA0,0,0,0,0,0,0,0,255,255,0,0,0,0,0,0 60470 DATA127,255,254,127,255,254,102,0,102,108,0,54,120,0,30,96,0,6,96,0,6,240 60475 DATA0,15,0 60600 GOTO60300